home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 2004 #11
/
Amiga Plus CD - 2004 - No. 11.iso
/
AmiSoft
/
Util
/
rexx
/
dock2fkey.lha
/
dock2fkey
next >
Wrap
Text File
|
2004-07-12
|
450b
|
20 lines
/* $VER: dock2key 1.1 $
* AmiDock prefs to FKey
* Bind first dock to Amiga-F1 etc.
* © by Stefan Haubenthal 2002/04
*/
if ~show(p,"FKEY.1") then do
address command "run >nil: fkey"
address command waitforport FKEY.1
end
f=1
if open(env,"ENV:Sys/AmiDock.prefs") then do
do while ~eof(env)
parse value readln(env) with "ICON: "args
if args~="" & f<=12 then do
address FKEY.1 'addkey "RAMIGA F'f'" cmd 6 args' args
f=f+1
end
end
end